﻿Imports JuegosLanBackend

Public Class WebForm4
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btnguardar.Click
        Try
            Dim negocio = New JuegoNegocio
            negocio.insertar(Me.TxtNombre.Text, Me.TxtVersion.Text, Me.TxtFabricante.Text)

            Me.txtNombre.Text = ""
            Me.TxtVersion.Text = ""
            Me.TxtFabricante.Text = ""

            Response.Write("Se insertó correctamente")
            MsgBox("Se inserto")

        Catch ex As Exception
            Response.Write("Problemas al insertar")
        End Try
    End Sub
End Class